home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / HyperTalk / Stack Repair / background_2672.txt < prev    next >
Encoding:
Text File  |  1988-01-29  |  5.6 KB  |  261 lines
  1. -- background: 2672 from stack: in
  2. -- bmap block id: 2220
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=35 top=104 right=134 bottom=155
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Define Bad Stack
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   ask "What is the Name of the Bad Stack?"
  23.   put it into Field "Bad Stack Name"
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 2 (button)
  29. -- low flags: 00
  30. -- high flags: 8003
  31. -- rect: left=35 top=135 right=165 bottom=155
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Define New Stack
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   get the short name of this stack
  43.   put it into Field "New Stack Name"
  44.   set the name of this card to "Operation Card"
  45. end mouseUp
  46.  
  47.  
  48.  
  49. -- part 3 (button)
  50. -- low flags: 00
  51. -- high flags: 8003
  52. -- rect: left=35 top=166 right=196 bottom=155
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: Bad Card Number
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   ask "What is the Bad Card Number?"
  64.   if it > 0 then
  65.     put it into Field "Bad Card Number"
  66.     go to stack field "Bad Stack Name"
  67.     get the number of cards
  68.     go to recent card
  69.     put Field "Bad Card Number" - 1 into Field "Cards Before"
  70.     put (it - Field "Bad Card Number") into Field "Cards After"
  71.   end if
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 4 (button)
  77. -- low flags: 00
  78. -- high flags: A004
  79. -- rect: left=406 top=57 right=109 bottom=499
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: Fix the Stack
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   put 0 into Field "Cards Completed"
  91.   Repeat for Field "Cards Before" - 1 times
  92.     go Field "Bad Stack Name"
  93.     doMenu "Cut Card"
  94.     go to Recent Card
  95.     Hide Message
  96.     doMenu "Paste Card"
  97.     go to Card "Operation Card"
  98.     add 1 to field "Cards Completed"
  99.   End Repeat
  100.   Repeat for Field "Cards After" times
  101.     go to Card 3 of Field "Bad Stack Name"
  102.     doMenu "Cut Card"
  103.     go Recent Card
  104.     Hide Message
  105.     doMenu "Paste Card"
  106.     go to Card "Operation Card"
  107.     add 1 to field "Cards Completed"
  108.   End Repeat
  109.   go Field "Bad Stack Name"
  110.   doMenu "Copy Card"
  111.   go Recent Card
  112.   Hide Message
  113.   doMenu "Paste Card"
  114.   go to Card "Operation Card"
  115.   add 1 to field "Cards Completed"
  116.   Beep 5
  117. end mouseUp
  118.  
  119.  
  120.  
  121. -- part 5 (field)
  122. -- low flags: 01
  123. -- high flags: 0002
  124. -- rect: left=158 top=111 right=131 bottom=291
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 0
  128. -- font id: 3
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: Bad Stack Name
  133.  
  134.  
  135. -- part 6 (field)
  136. -- low flags: 01
  137. -- high flags: 0002
  138. -- rect: left=158 top=140 right=160 bottom=291
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 0
  142. -- font id: 3
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: New Stack Name
  147.  
  148.  
  149. -- part 7 (field)
  150. -- low flags: 01
  151. -- high flags: 0002
  152. -- rect: left=158 top=170 right=190 bottom=291
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 0
  156. -- font id: 3
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: Bad Card Number
  161.  
  162.  
  163. -- part 8 (field)
  164. -- low flags: 00
  165. -- high flags: 0002
  166. -- rect: left=214 top=209 right=224 bottom=248
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 0 / 0
  169. -- text alignment: 0
  170. -- font id: 3
  171. -- text size: 9
  172. -- style flags: 0
  173. -- line height: 12
  174. -- part name: Cards Before
  175.  
  176.  
  177. -- part 9 (field)
  178. -- low flags: 00
  179. -- high flags: 0002
  180. -- rect: left=214 top=243 right=258 bottom=248
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 0 / 0
  183. -- text alignment: 0
  184. -- font id: 3
  185. -- text size: 9
  186. -- style flags: 0
  187. -- line height: 12
  188. -- part name: Cards After
  189.  
  190.  
  191. -- part 10 (field)
  192. -- low flags: 00
  193. -- high flags: 0002
  194. -- rect: left=214 top=278 right=293 bottom=248
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 0
  198. -- font id: 3
  199. -- text size: 9
  200. -- style flags: 0
  201. -- line height: 12
  202. -- part name: Cards Completed
  203.  
  204.  
  205. -- part 11 (button)
  206. -- low flags: 00
  207. -- high flags: 8003
  208. -- rect: left=34 top=304 right=334 bottom=154
  209. -- title width / last selected line: 0
  210. -- icon id / first selected line: 0 / 0
  211. -- text alignment: 1
  212. -- font id: 0
  213. -- text size: 12
  214. -- style flags: 0
  215. -- line height: 16
  216. -- part name: Go to Bad Stack
  217. ----- HyperTalk script -----
  218. on mouseUp
  219.   go to Field "Bad Stack Name"
  220. end mouseUp
  221.  
  222.  
  223.  
  224. -- part 16 (button)
  225. -- low flags: 00
  226. -- high flags: 0000
  227. -- rect: left=0 top=21 right=59 bottom=41
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 20098 / 20098
  230. -- text alignment: 1
  231. -- font id: 0
  232. -- text size: 12
  233. -- style flags: 0
  234. -- line height: 16
  235. -- part name: Home
  236. ----- HyperTalk script -----
  237. on mouseUp
  238.   visual effect iris close
  239.   go home
  240. end mouseUp
  241.  
  242.  
  243.  
  244. -- part 17 (button)
  245. -- low flags: 00
  246. -- high flags: 0000
  247. -- rect: left=431 top=300 right=339 bottom=473
  248. -- title width / last selected line: 0
  249. -- icon id / first selected line: 23078 / 23078
  250. -- text alignment: 1
  251. -- font id: 0
  252. -- text size: 12
  253. -- style flags: 0
  254. -- line height: 16
  255. -- part name: Help
  256. ----- HyperTalk script -----
  257. on mouseUp
  258.   visual effect iris open
  259.   go to card "Help Card" of stack "Stack Repair"
  260. end mouseUp
  261.